From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 20 Apr 2010 22:28:26 +0000 (-0400)
Subject: * files.el (copy-directory): Handle symlinks (Bug#5982).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~19^2~30
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=fce166a494df78745660d29c7960ffa4c9127cb3;p=emacs.git

* files.el (copy-directory): Handle symlinks (Bug#5982).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6722634c14..0b860d76e1d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-04-20  Chong Yidong  <cyd@stupidchicken.com>
 
+	* files.el (copy-directory): Handle symlinks (Bug#5982).
+
 	* progmodes/compile.el (compilation-next-error-function): Revert
 	2009-10-12 change (Bug#5983).
 
diff --git a/lisp/files.el b/lisp/files.el
index 99fa7ddf1b5..76345034c6e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4735,10 +4735,14 @@ this happens by default."
       (mapc
        (lambda (file)
 	 (let ((target (expand-file-name
-			(file-name-nondirectory file) newname)))
-	   (if (file-directory-p file)
-	       (copy-directory file target keep-time parents)
-	     (copy-file file target t keep-time))))
+			(file-name-nondirectory file) newname))
+	       (attrs (file-attributes file)))
+	   (cond ((file-directory-p file)
+		  (copy-directory file target keep-time parents))
+		 ((stringp (car attrs)) ; Symbolic link
+		  (make-symbolic-link (car attrs) target t))
+		 (t
+		  (copy-file file target t keep-time)))))
        ;; We do not want to copy "." and "..".
        (directory-files	directory 'full directory-files-no-dot-files-regexp))